<!DOCTYPE html>
<html lang="en">
  <head>
    <meta charset="utf-8">
    <meta http-equiv="X-UA-Compatible" content="IE=edge">
    <meta name="viewport" content="width=device-width, initial-scale=1">
	 
	 <meta name="description" content="XDMF parallel partitioned mesh I/O on top of HDF5">
    
    <meta name="author" content="Víctor Sande Veiga" >
    <link rel="icon" href="../favicon.png">

    <title>test_mpi_environment &ndash; XH5For</title>

    <link href="../css/bootstrap.min.css" rel="stylesheet">
    <link href="../css/pygments.css" rel="stylesheet">
    <link href="../css/font-awesome.min.css" rel="stylesheet">
    <link href="../css/local.css" rel="stylesheet">
    

    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
    <!--[if lt IE 9]>
      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
    <![endif]-->
    
    <script src="../js/jquery-2.1.3.min.js"></script>
    <script src="../js/svg-pan-zoom.min.js"></script>

  </head>

  <body>

    <!-- Fixed navbar -->
    <nav class="navbar navbar-inverse navbar-fixed-top">
      <div class="container">
        <div class="navbar-header">
          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
            <span class="sr-only">Toggle navigation</span>
            <span class="icon-bar"></span>
            <span class="icon-bar"></span>
            <span class="icon-bar"></span>
          </button>
          <a class="navbar-brand" href="../index.html">XH5For </a>
        </div>
        <div id="navbar" class="navbar-collapse collapse">
          <ul class="nav navbar-nav">
				
            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
              <a href="#" class="dropdown-toggle"
              data-toggle="dropdown" role="button"
              aria-haspopup="true"
		 aria-expanded="false">Contents <span class="caret"></span></a>
	      <ul class="dropdown-menu">
              
            <li><a href="../lists/files.html">Source Files</a></li>
				
				
            <li><a href="../lists/modules.html">Modules</a></li>
				
            
                                
            <li><a href="../lists/procedures.html">Procedures</a></li>
				
								
            <li><a href="../lists/types.html">Derived Types</a></li>
				
				
            <li><a href="../lists/programs.html">Programs</a></li>
				
            </ul>
            </li>

<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>


<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>



<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>

                             
<li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>


<li class="visible-xs hidden-sm visible-lg"><a href="../lists/programs.html">Programs</a></li>

          </ul>
        
        <form action="../search.html" class="navbar-form navbar-right" role="search">
        <div class="form-group">
          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
        </div>
<!--
        <button type="submit" class="btn btn-default">Submit</button>
-->
        </form>
        
        </div><!--/.nav-collapse -->
      </div>
    </nav>

    <div class="container">
    
  
  <div class="row">
    <h1>test_mpi_environment
    <small>Program</small>
    
    </h1>
    
<div class="row">
  <div class="col-lg-12">
<div class="well well-sm">
  <ul class="list-inline" style="margin-bottom:0px;display:inline">
     
     
     
     
    
    
     <li><i class="fa fa-list-ol"></i>
       <a data-toggle="tooltip"
	  data-placement="bottom" data-html="true"
	  title=" 1.1% of total for programs.">27 statements</a>
     </li> 
     
     
    <li><i class="fa fa-code"></i><a href="../src/test_mpi_environment.f90"> Source File</a></li>
     
  </ul>
  <ol class="breadcrumb in-well text-right">
  
     <li><a href='../sourcefile/test_mpi_environment.f90.html'>test_mpi_environment.f90</a></li>
  
     <li class="active">test_mpi_environment</li>
  </ol>
</div>
</div>
</div>
<script>
  $(function () {
  $('[data-toggle="tooltip"]').tooltip()
  })
</script>

  </div>
  
  <div class="row">
    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
    
<div id="sidebar">
  


<div class="panel panel-primary">
  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-0">Variables</a></h3></div>
  <div id="vars-0" class="panel-collapse collapse">
    <div class="list-group">
      
      <a class="list-group-item" href="../program/test_mpi_environment.html#variable-env">env</a>
      
      <a class="list-group-item" href="../program/test_mpi_environment.html#variable-mpierr">mpierr</a>
      
      <a class="list-group-item" href="../program/test_mpi_environment.html#variable-recv_int">recv_int</a>
      
      <a class="list-group-item" href="../program/test_mpi_environment.html#variable-recv_double_int">recv_double_int</a>
      
      <a class="list-group-item" href="../program/test_mpi_environment.html#variable-recv_single_double_int">recv_single_double_int</a>
      
      <a class="list-group-item" href="../program/test_mpi_environment.html#variable-recv_string">recv_string</a>
      
    </div>
  </div>
</div>



















<div class="panel panel-primary">
  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
  <div class="list-group">
    <a class="list-group-item" href="../program/test_mpi_environment.html#src">test_mpi_environment</a>
  </div>
</div>


  <hr>
  

<div class="panel panel-default">
  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#allprogs-0">All Programs</a></h3></div>
  <div id="allprogs-0" class="panel-collapse collapse">
    <div class="list-group">
      
      <a class="list-group-item" href="../program/ch_unstructured_hexahedron.html">ch_unstructured_hexahedron</a>
      
      <a class="list-group-item" href="../program/steps_handler_test.html">steps_handler_test</a>
      
      <a class="list-group-item" href="../program/test_hdf5_hyperslabs_handler.html">test_hdf5_hyperslabs_handler</a>
      
      <a class="list-group-item" href="../program/test_hdf5_rect_dpp_handler.html">test_hdf5_rect_dpp_handler</a>
      
      <a class="list-group-item" href="../program/test_hdf5_rect_hyperslabs_handler.html">test_hdf5_rect_hyperslabs_handler</a>
      
      <a class="list-group-item" href="../program/test_hdf5_reg_dpp_handler.html">test_hdf5_reg_dpp_handler</a>
      
      <a class="list-group-item" href="../program/test_hdf5_reg_hyperslabs_handler.html">test_hdf5_reg_hyperslabs_handler</a>
      
      <a class="list-group-item" href="../program/test_hdf5_uns_hyperslabs_handler.html">test_hdf5_uns_hyperslabs_handler</a>
      
      <a class="list-group-item" href="../program/test_mpi_environment.html">test_mpi_environment</a>
      
      <a class="list-group-item" href="../program/test_xdmf_attribute.html">test_xdmf_attribute</a>
      
      <a class="list-group-item" href="../program/test_xdmf_character_data.html">test_xdmf_character_data</a>
      
      <a class="list-group-item" href="../program/test_xdmf_dataitem.html">test_xdmf_dataitem</a>
      
      <a class="list-group-item" href="../program/test_xdmf_geometry.html">test_xdmf_geometry</a>
      
      <a class="list-group-item" href="../program/test_xdmf_grid.html">test_xdmf_grid</a>
      
      <a class="list-group-item" href="../program/test_xdmf_rect_dpp_handler.html">test_xdmf_rect_dpp_handler</a>
      
      <a class="list-group-item" href="../program/test_xdmf_rect_hyperslabs_handler.html">test_xdmf_rect_hyperslabs_handler</a>
      
      <a class="list-group-item" href="../program/test_xdmf_reg_ddp_handler.html">test_xdmf_reg_ddp_handler</a>
      
      <a class="list-group-item" href="../program/test_xdmf_reg_hyperslabs_handler.html">test_xdmf_reg_hyperslabs_handler</a>
      
      <a class="list-group-item" href="../program/test_xdmf_time.html">test_xdmf_time</a>
      
      <a class="list-group-item" href="../program/test_xdmf_topology.html">test_xdmf_topology</a>
      
      <a class="list-group-item" href="../program/test_xdmf_uns_ddp_handler.html">test_xdmf_uns_ddp_handler</a>
      
      <a class="list-group-item" href="../program/test_xdmf_uns_hyperslabs_handler.html">test_xdmf_uns_hyperslabs_handler</a>
      
      <a class="list-group-item" href="../program/test_xdmf_xinclude.html">test_xdmf_xinclude</a>
      
      <a class="list-group-item" href="../program/try_compile_hdf5_mod.html">try_compile_hdf5_mod</a>
      
      <a class="list-group-item" href="../program/try_compile_mpi_mod.html">try_compile_mpi_mod</a>
      
      <a class="list-group-item" href="../program/wxml_example.html">wxml_example</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_rectilinear_grid.html">xh5for_ch_rectilinear_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_rectilinear_grid%7E2.html">xh5for_ch_rectilinear_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_rectilinear_grid%7E3.html">xh5for_ch_rectilinear_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_regular_grid.html">xh5for_ch_regular_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_regular_grid%7E2.html">xh5for_ch_regular_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_regular_grid%7E3.html">xh5for_ch_regular_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_regular_grid%7E4.html">xh5for_ch_regular_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_regular_grid%7E5.html">xh5for_ch_regular_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_hexahedron.html">xh5for_ch_unstructured_hexahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_hexahedron%7E2.html">xh5for_ch_unstructured_hexahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_mixedtopology.html">xh5for_ch_unstructured_mixedtopology</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_mixedtopology%7E2.html">xh5for_ch_unstructured_mixedtopology</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_quadrilateral.html">xh5for_ch_unstructured_quadrilateral</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_tetrahedron.html">xh5for_ch_unstructured_tetrahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_tetrahedron%7E2.html">xh5for_ch_unstructured_tetrahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_tetrahedron%7E3.html">xh5for_ch_unstructured_tetrahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_tetrahedron%7E4.html">xh5for_ch_unstructured_tetrahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_tetrahedron%7E5.html">xh5for_ch_unstructured_tetrahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_triangles.html">xh5for_ch_unstructured_triangles</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_rectilinear_grid.html">xh5for_dpp_rectilinear_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_rectilinear_grid%7E2.html">xh5for_dpp_rectilinear_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_rectilinear_grid%7E3.html">xh5for_dpp_rectilinear_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_regular_grid.html">xh5for_dpp_regular_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_unstructured_hexahedron.html">xh5for_dpp_unstructured_hexahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_unstructured_mixedtopology.html">xh5for_dpp_unstructured_mixedtopology</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_unstructured_quadrilateral.html">xh5for_dpp_unstructured_quadrilateral</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_unstructured_tetrahedron.html">xh5for_dpp_unstructured_tetrahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_unstructured_triangles.html">xh5for_dpp_unstructured_triangles</a>
      
    </div>
  </div>
</div>


</div>  

    </div>
    
    <div class="col-md-9" id='text'>
    
  
    <ul class="list-inline">
      <li><h4>Uses:</h4></li>
      
      <li>PENF</li>
      
      <li><a href='../module/mpi_environment.html'>mpi_environment</a></li>
      
    </ul>
    
                <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
 "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
<!-- Generated by graphviz version 2.38.0 (20140413.2041)
 -->
<!-- Title: program~~test_mpi_environment~~UsesGraph Pages: 1 -->
<svg id="programtest_mpi_environmentUsesGraph" width="641pt" height="129pt"
 viewBox="0.00 0.00 641.00 129.28" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
<g id="program~~test_mpi_environment~~UsesGraph" class="graph" transform="scale(0.887812 0.887812) rotate(0) translate(4 141.617)">
<title>program~~test_mpi_environment~~UsesGraph</title>
<polygon fill="white" stroke="none" points="-4,4 -4,-141.617 718,-141.617 718,4 -4,4"/>
<!-- program~test_mpi_environment -->
<g id="program~~test_mpi_environment~~UsesGraph_node1" class="node"><title>program~test_mpi_environment</title>
<polygon fill="none" stroke="black" points="714,-128 596,-128 596,-104 714,-104 714,-128"/>
<text text-anchor="middle" x="655" y="-113.6" font-family="Helvetica,sans-Serif" font-size="10.50">test_mpi_environment</text>
</g>
<!-- PENF -->
<g id="program~~test_mpi_environment~~UsesGraph_node2" class="node"><title>PENF</title>
<polygon fill="#337ab7" stroke="#337ab7" points="54,-128 0,-128 0,-104 54,-104 54,-128"/>
<text text-anchor="middle" x="27" y="-113.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">PENF</text>
</g>
<!-- PENF&#45;&gt;program~test_mpi_environment -->
<g id="program~~test_mpi_environment~~UsesGraph_edge12" class="edge"><title>PENF&#45;&gt;program~test_mpi_environment</title>
<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.5,-136C460.691,-130.553 533.935,-124.921 585.853,-121.027"/>
<polygon fill="#000000" stroke="#000000" points="586.233,-124.508 595.944,-120.271 585.71,-117.528 586.233,-124.508"/>
</g>
<!-- module~mpi_environment -->
<g id="program~~test_mpi_environment~~UsesGraph_node3" class="node"><title>module~mpi_environment</title>
<g id="a_program~~test_mpi_environment~~UsesGraph_node3"><a xlink:href="../module/mpi_environment.html" xlink:title="mpi_environment">
<polygon fill="#337ab7" stroke="#337ab7" points="560,-108 465,-108 465,-84 560,-84 560,-108"/>
<text text-anchor="middle" x="512.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">mpi_environment</text>
</a>
</g>
</g>
<!-- PENF&#45;&gt;module~mpi_environment -->
<g id="program~~test_mpi_environment~~UsesGraph_edge10" class="edge"><title>PENF&#45;&gt;module~mpi_environment</title>
<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.5,-136C328.212,-131.673 341.8,-140.472 394.5,-136"/>
<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.5,-136C425.435,-133.545 456.431,-122.206 478.945,-112.225"/>
<polygon fill="#000000" stroke="#000000" points="480.407,-115.405 488.043,-108.06 477.494,-109.04 480.407,-115.405"/>
</g>
<!-- module~xh5for_utils -->
<g id="program~~test_mpi_environment~~UsesGraph_node4" class="node"><title>module~xh5for_utils</title>
<g id="a_program~~test_mpi_environment~~UsesGraph_node4"><a xlink:href="../module/xh5for_utils.html" xlink:title="xh5for_utils">
<polygon fill="#337ab7" stroke="#337ab7" points="429,-108 362,-108 362,-84 429,-84 429,-108"/>
<text text-anchor="middle" x="395.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh5for_utils</text>
</a>
</g>
</g>
<!-- PENF&#45;&gt;module~xh5for_utils -->
<g id="program~~test_mpi_environment~~UsesGraph_edge7" class="edge"><title>PENF&#45;&gt;module~xh5for_utils</title>
<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M139.5,-136C198.96,-132.635 214.144,-140.872 273.5,-136"/>
<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.5,-136C305.341,-133.55 337.423,-122.211 360.748,-112.229"/>
<polygon fill="#000000" stroke="#000000" points="362.443,-115.306 370.176,-108.063 359.614,-108.903 362.443,-115.306"/>
</g>
<!-- module~xh5for_parameters -->
<g id="program~~test_mpi_environment~~UsesGraph_node6" class="node"><title>module~xh5for_parameters</title>
<g id="a_program~~test_mpi_environment~~UsesGraph_node6"><a xlink:href="../module/xh5for_parameters.html" xlink:title="xh5for_parameters">
<polygon fill="#337ab7" stroke="#337ab7" points="326,-108 223,-108 223,-84 326,-84 326,-108"/>
<text text-anchor="middle" x="274.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh5for_parameters</text>
</a>
</g>
</g>
<!-- PENF&#45;&gt;module~xh5for_parameters -->
<g id="program~~test_mpi_environment~~UsesGraph_edge1" class="edge"><title>PENF&#45;&gt;module~xh5for_parameters</title>
<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M139.5,-136C173.567,-134.072 210.617,-122.205 237.106,-111.893"/>
<polygon fill="#000000" stroke="#000000" points="238.734,-115.011 246.713,-108.041 236.128,-108.514 238.734,-115.011"/>
</g>
<!-- module~xdmf_utils -->
<g id="program~~test_mpi_environment~~UsesGraph_node7" class="node"><title>module~xdmf_utils</title>
<g id="a_program~~test_mpi_environment~~UsesGraph_node7"><a xlink:href="../module/xdmf_utils.html" xlink:title="xdmf_utils">
<polygon fill="#337ab7" stroke="#337ab7" points="305,-66 244,-66 244,-42 305,-42 305,-66"/>
<text text-anchor="middle" x="274.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xdmf_utils</text>
</a>
</g>
</g>
<!-- PENF&#45;&gt;module~xdmf_utils -->
<g id="program~~test_mpi_environment~~UsesGraph_edge5" class="edge"><title>PENF&#45;&gt;module~xdmf_utils</title>
<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M54.3306,-124.414C76.3741,-130.585 108.752,-137.627 137.5,-136"/>
<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M139.5,-136C162.201,-134.715 168.512,-130.236 187,-117 206.99,-102.688 203.107,-89.4472 223,-75 226.642,-72.3549 230.667,-69.9693 234.808,-67.8378"/>
<polygon fill="#000000" stroke="#000000" points="236.37,-70.9715 243.956,-63.5754 233.413,-64.6265 236.37,-70.9715"/>
</g>
<!-- module~xdmf_parameters -->
<g id="program~~test_mpi_environment~~UsesGraph_node9" class="node"><title>module~xdmf_parameters</title>
<g id="a_program~~test_mpi_environment~~UsesGraph_node9"><a xlink:href="../module/xdmf_parameters.html" xlink:title="xdmf_parameters">
<polygon fill="#337ab7" stroke="#337ab7" points="187,-108 90,-108 90,-84 187,-84 187,-108"/>
<text text-anchor="middle" x="138.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xdmf_parameters</text>
</a>
</g>
</g>
<!-- PENF&#45;&gt;module~xdmf_parameters -->
<g id="program~~test_mpi_environment~~UsesGraph_edge2" class="edge"><title>PENF&#45;&gt;module~xdmf_parameters</title>
<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M54.228,-111.21C61.951,-109.799 70.7244,-108.196 79.6086,-106.574"/>
<polygon fill="#000000" stroke="#000000" points="80.4276,-109.982 89.636,-104.742 79.1698,-103.096 80.4276,-109.982"/>
</g>
<!-- module~mpi_environment&#45;&gt;program~test_mpi_environment -->
<g id="program~~test_mpi_environment~~UsesGraph_edge13" class="edge"><title>module~mpi_environment&#45;&gt;program~test_mpi_environment</title>
<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M560.284,-102.66C568.432,-103.819 577.055,-105.047 585.64,-106.269"/>
<polygon fill="#000000" stroke="#000000" points="585.277,-109.753 595.671,-107.697 586.264,-102.822 585.277,-109.753"/>
</g>
<!-- module~xh5for_utils&#45;&gt;module~mpi_environment -->
<g id="program~~test_mpi_environment~~UsesGraph_edge11" class="edge"><title>module~xh5for_utils&#45;&gt;module~mpi_environment</title>
<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M429.147,-96C437.07,-96 445.772,-96 454.46,-96"/>
<polygon fill="#000000" stroke="#000000" points="454.606,-99.5001 464.606,-96 454.606,-92.5001 454.606,-99.5001"/>
</g>
<!-- iso_c_binding -->
<g id="program~~test_mpi_environment~~UsesGraph_node5" class="node"><title>iso_c_binding</title>
<g id="a_program~~test_mpi_environment~~UsesGraph_node5"><a xlink:href="https://software.intel.com/en-us/node/511038" xlink:title="iso_c_binding">
<polygon fill="#337ab7" stroke="#337ab7" points="313.5,-24 235.5,-24 235.5,-0 313.5,-0 313.5,-24"/>
<text text-anchor="middle" x="274.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_c_binding</text>
</a>
</g>
</g>
<!-- iso_c_binding&#45;&gt;module~xh5for_utils -->
<g id="program~~test_mpi_environment~~UsesGraph_edge6" class="edge"><title>iso_c_binding&#45;&gt;module~xh5for_utils</title>
<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M309.203,-24.0741C314.985,-26.6853 320.8,-29.6755 326,-33 345.118,-45.2226 363.875,-62.9944 376.913,-76.5488"/>
<polygon fill="#000000" stroke="#000000" points="374.489,-79.0801 383.889,-83.9682 379.589,-74.2851 374.489,-79.0801"/>
</g>
<!-- module~xh5for_parameters&#45;&gt;module~xh5for_utils -->
<g id="program~~test_mpi_environment~~UsesGraph_edge8" class="edge"><title>module~xh5for_parameters&#45;&gt;module~xh5for_utils</title>
<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.312,-96C334.751,-96 343.429,-96 351.646,-96"/>
<polygon fill="#000000" stroke="#000000" points="351.755,-99.5001 361.755,-96 351.755,-92.5001 351.755,-99.5001"/>
</g>
<!-- module~xdmf_utils&#45;&gt;module~xh5for_utils -->
<g id="program~~test_mpi_environment~~UsesGraph_edge9" class="edge"><title>module~xdmf_utils&#45;&gt;module~xh5for_utils</title>
<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.222,-64.49C319.474,-69.5203 336.798,-75.6345 352.379,-81.1337"/>
<polygon fill="#000000" stroke="#000000" points="351.217,-84.4352 361.812,-84.463 353.547,-77.8342 351.217,-84.4352"/>
</g>
<!-- iso_fortran_env -->
<g id="program~~test_mpi_environment~~UsesGraph_node8" class="node"><title>iso_fortran_env</title>
<g id="a_program~~test_mpi_environment~~UsesGraph_node8"><a xlink:href="https://software.intel.com/en-us/node/511041" xlink:title="iso_fortran_env">
<polygon fill="#337ab7" stroke="#337ab7" points="182,-66 95,-66 95,-42 182,-42 182,-66"/>
<text text-anchor="middle" x="138.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
</a>
</g>
</g>
<!-- iso_fortran_env&#45;&gt;module~xdmf_utils -->
<g id="program~~test_mpi_environment~~UsesGraph_edge3" class="edge"><title>iso_fortran_env&#45;&gt;module~xdmf_utils</title>
<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M182.267,-54C198.729,-54 217.446,-54 233.624,-54"/>
<polygon fill="#000000" stroke="#000000" points="233.84,-57.5001 243.84,-54 233.84,-50.5001 233.84,-57.5001"/>
</g>
<!-- module~xdmf_parameters&#45;&gt;module~xdmf_utils -->
<g id="program~~test_mpi_environment~~UsesGraph_edge4" class="edge"><title>module~xdmf_parameters&#45;&gt;module~xdmf_utils</title>
<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M177.899,-83.9645C195.354,-78.4934 215.998,-72.023 233.627,-66.4975"/>
<polygon fill="#000000" stroke="#000000" points="235.116,-69.6988 243.611,-63.368 233.022,-63.0192 235.116,-69.6988"/>
</g>
</g>
</svg>
</div>
                <script>var panprogramtest_mpi_environmentUsesGraph = svgPanZoom('#programtest_mpi_environmentUsesGraph', {
                    zoomEnabled: true,
                    controlIconsEnabled: true,
                    fit: true,
                    center: true,});
                    </script>
                <div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div>
                <div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog">
                  <div class="modal-dialog modal-lg" role="document">
                    <div class="modal-content">
                      <div class="modal-header">
                        <button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button>
                        <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
                      </div>
                      <div class="modal-body">
                        
    <p>Nodes of different colours represent the following: </p>
    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
 "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
<!-- Generated by graphviz version 2.38.0 (20140413.2041)
 -->
<!-- Title: Graph Key Pages: 1 -->
<svg width="490pt" height="32pt"
 viewBox="0.00 0.00 489.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
<title>Graph Key</title>
<polygon fill="white" stroke="none" points="-4,4 -4,-28 485.5,-28 485.5,4 -4,4"/>
<!-- Module -->
<g id="node1" class="node"><title>Module</title>
<polygon fill="#337ab7" stroke="#337ab7" points="54,-24 0,-24 0,-0 54,-0 54,-24"/>
<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Module</text>
</g>
<!-- Submodule -->
<g id="node2" class="node"><title>Submodule</title>
<polygon fill="#5bc0de" stroke="#5bc0de" points="139.5,-24 72.5,-24 72.5,-0 139.5,-0 139.5,-24"/>
<text text-anchor="middle" x="106" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Submodule</text>
</g>
<!-- Subroutine -->
<g id="node3" class="node"><title>Subroutine</title>
<polygon fill="#d9534f" stroke="#d9534f" points="222,-24 158,-24 158,-0 222,-0 222,-24"/>
<text text-anchor="middle" x="190" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
</g>
<!-- Function -->
<g id="node4" class="node"><title>Function</title>
<polygon fill="#d94e8f" stroke="#d94e8f" points="294,-24 240,-24 240,-0 294,-0 294,-24"/>
<text text-anchor="middle" x="267" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
</g>
<!-- Program -->
<g id="node5" class="node"><title>Program</title>
<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-24 312,-24 312,-0 366,-0 366,-24"/>
<text text-anchor="middle" x="339" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
</g>
<!-- This Page&#39;s Entity -->
<g id="node6" class="node"><title>This Page&#39;s Entity</title>
<polygon fill="none" stroke="black" points="481.5,-24 384.5,-24 384.5,-0 481.5,-0 481.5,-24"/>
<text text-anchor="middle" x="433" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
</g>
</g>
</svg>

    
    <p>Solid arrows point from a parent (sub)module to the submodule which is
    descended from it. Dashed arrows point from a module being used to the
    module or program unit using it.
    </p>
    
                      </div>
                    </div>
                  </div>
                </div>
                
    

    <br><br>
    
    
     <h3>Calls</h3>
     
                <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
 "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
<!-- Generated by graphviz version 2.38.0 (20140413.2041)
 -->
<!-- Title: program~~test_mpi_environment~~CallsGraph Pages: 1 -->
<svg id="programtest_mpi_environmentCallsGraph" width="216pt" height="32pt"
 viewBox="0.00 0.00 216.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
<g id="program~~test_mpi_environment~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
<title>program~~test_mpi_environment~~CallsGraph</title>
<polygon fill="white" stroke="none" points="-4,4 -4,-28 212,-28 212,4 -4,4"/>
<!-- program~test_mpi_environment -->
<g id="program~~test_mpi_environment~~CallsGraph_node1" class="node"><title>program~test_mpi_environment</title>
<polygon fill="none" stroke="black" points="118,-24 0,-24 0,-0 118,-0 118,-24"/>
<text text-anchor="middle" x="59" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">test_mpi_environment</text>
</g>
<!-- str -->
<g id="program~~test_mpi_environment~~CallsGraph_node2" class="node"><title>str</title>
<polygon fill="#777777" stroke="#777777" points="208,-24 154,-24 154,-0 208,-0 208,-24"/>
<text text-anchor="middle" x="181" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">str</text>
</g>
<!-- program~test_mpi_environment&#45;&gt;str -->
<g id="program~~test_mpi_environment~~CallsGraph_edge1" class="edge"><title>program~test_mpi_environment&#45;&gt;str</title>
<path fill="none" stroke="#000000" d="M118.242,-12C126.962,-12 135.731,-12 143.812,-12"/>
<polygon fill="#000000" stroke="#000000" points="143.977,-15.5001 153.977,-12 143.977,-8.5001 143.977,-15.5001"/>
</g>
</g>
</svg>
</div>
                <div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div>
                <div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog">
                  <div class="modal-dialog modal-lg" role="document">
                    <div class="modal-content">
                      <div class="modal-header">
                        <button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button>
                        <h4 class="modal-title" id="-graph-help-label">Graph Key</h4>
                      </div>
                      <div class="modal-body">
                        
    <p>Nodes of different colours represent the following: </p>
    <?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
 "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
<!-- Generated by graphviz version 2.38.0 (20140413.2041)
 -->
<!-- Title: Graph Key Pages: 1 -->
<svg width="560pt" height="32pt"
 viewBox="0.00 0.00 559.50 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
<g id="graph0" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
<title>Graph Key</title>
<polygon fill="white" stroke="none" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
<!-- Subroutine -->
<g id="node1" class="node"><title>Subroutine</title>
<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,-0 64,-0 64,-24"/>
<text text-anchor="middle" x="32" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Subroutine</text>
</g>
<!-- Function -->
<g id="node2" class="node"><title>Function</title>
<polygon fill="#d94e8f" stroke="#d94e8f" points="136,-24 82,-24 82,-0 136,-0 136,-24"/>
<text text-anchor="middle" x="109" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Function</text>
</g>
<!-- Interface -->
<g id="node3" class="node"><title>Interface</title>
<polygon fill="#a7506f" stroke="#a7506f" points="209.5,-24 154.5,-24 154.5,-0 209.5,-0 209.5,-24"/>
<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
</g>
<!-- Unknown Procedure Type -->
<g id="node4" class="node"><title>Unknown Procedure Type</title>
<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,-0 364,-0 364,-24"/>
<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
</g>
<!-- Program -->
<g id="node5" class="node"><title>Program</title>
<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,-0 436,-0 436,-24"/>
<text text-anchor="middle" x="409" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Program</text>
</g>
<!-- This Page&#39;s Entity -->
<g id="node6" class="node"><title>This Page&#39;s Entity</title>
<polygon fill="none" stroke="black" points="551.5,-24 454.5,-24 454.5,-0 551.5,-0 551.5,-24"/>
<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
</g>
</g>
</svg>

    
    <p>Solid arrows point from a procedure to one which it calls. Dashed 
    arrows point from an interface to procedures which implement that interface.
    This could include the module procedures in a generic interface or the
    implementation in a submodule of an interface in a parent module.
    </p>
    
                      </div>
                    </div>
                  </div>
                </div>
                
     
    <br>

     <section class="visible-xs visible-sm hidden-md">
       


<div class="panel panel-primary">
  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-1">Variables</a></h3></div>
  <div id="vars-1" class="panel-collapse collapse">
    <div class="list-group">
      
      <a class="list-group-item" href="../program/test_mpi_environment.html#variable-env">env</a>
      
      <a class="list-group-item" href="../program/test_mpi_environment.html#variable-mpierr">mpierr</a>
      
      <a class="list-group-item" href="../program/test_mpi_environment.html#variable-recv_int">recv_int</a>
      
      <a class="list-group-item" href="../program/test_mpi_environment.html#variable-recv_double_int">recv_double_int</a>
      
      <a class="list-group-item" href="../program/test_mpi_environment.html#variable-recv_single_double_int">recv_single_double_int</a>
      
      <a class="list-group-item" href="../program/test_mpi_environment.html#variable-recv_string">recv_string</a>
      
    </div>
  </div>
</div>



















<div class="panel panel-primary">
  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
  <div class="list-group">
    <a class="list-group-item" href="../program/test_mpi_environment.html#src">test_mpi_environment</a>
  </div>
</div>


     </section>
     <br class="visible-xs visible-sm hidden-md">

     

    
    <section>
    <h2>Variables</h2>
    
<table class="table table-striped varlist">
<thead><tr><th>Type</th>

<th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>



<tbody>

  
  
  
  
<tr>
  
  <td><span class="anchor" id="variable-env"></span>type(<a href='../type/mpi_env_t.html'>mpi_env_t</a>)</td>
  
  
  <td></td><td>::</td>
  <td><strong>env</strong></td><td></td><td></td><td></td>
  
</tr>

  
  
  
  
<tr>
  
  <td><span class="anchor" id="variable-mpierr"></span>integer</td>
  
  
  <td></td><td>::</td>
  <td><strong>mpierr</strong></td><td></td><td></td><td></td>
  
</tr>

  
  
  
  
<tr>
  
  <td><span class="anchor" id="variable-recv_int"></span>integer(kind=I4P),</td>
  
  
  <td>allocatable</td><td>::</td>
  <td><strong>recv_int</strong>(:)</td><td></td><td></td><td></td>
  
</tr>

  
  
  
  
<tr>
  
  <td><span class="anchor" id="variable-recv_double_int"></span>integer(kind=I8P),</td>
  
  
  <td>allocatable</td><td>::</td>
  <td><strong>recv_double_int</strong>(:)</td><td></td><td></td><td></td>
  
</tr>

  
  
  
  
<tr>
  
  <td><span class="anchor" id="variable-recv_single_double_int"></span>integer(kind=I8P)</td>
  
  
  <td></td><td>::</td>
  <td><strong>recv_single_double_int</strong></td><td></td><td></td><td></td>
  
</tr>

  
  
  
  
<tr>
  
  <td><span class="anchor" id="variable-recv_string"></span>character(len=:),</td>
  
  
  <td>allocatable</td><td>::</td>
  <td><strong>recv_string</strong></td><td></td><td></td><td></td>
  
</tr>

</tbody>
</table>

    </section>
    <br>
    
    
    
    
    
    
    

    
    
    


    
    
    
    <section>
    <h2 id="src">Source Code</h2>
    <div class="highlight"><pre><span class="k">program </span><span class="n">test_mpi_environment</span>

<span class="k">use </span><span class="n">PENF</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">I4P</span><span class="p">,</span> <span class="n">I8P</span><span class="p">,</span> <span class="n">R4P</span><span class="p">,</span> <span class="n">R8P</span><span class="p">,</span> <span class="n">str</span>

<span class="k">use </span><span class="n">mpi_environment</span>
<span class="cp">#ifdef MPI_MOD</span>
  <span class="k">use </span><span class="n">mpi</span>
<span class="cp">#endif</span>
<span class="k">implicit none</span>
<span class="cp">#ifdef MPI_H</span>
  <span class="k">include</span> <span class="s1">&#39;mpif.h&#39;</span>
<span class="cp">#endif</span>


    <span class="k">type</span><span class="p">(</span><span class="n">mpi_env_t</span><span class="p">)</span>               <span class="kd">::</span> <span class="n">env</span>
    <span class="kt">integer</span>                       <span class="kd">::</span> <span class="n">mpierr</span>
    <span class="kt">integer</span><span class="p">(</span><span class="n">I4P</span><span class="p">),</span>     <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">recv_int</span><span class="p">(:)</span>
    <span class="kt">integer</span><span class="p">(</span><span class="n">I8P</span><span class="p">),</span>     <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">recv_double_int</span><span class="p">(:)</span>
    <span class="kt">integer</span><span class="p">(</span><span class="n">I8P</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">recv_single_double_int</span>
    <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">recv_string</span>

<span class="cp">#if defined(MPI_MOD) || defined(MPI_H)</span>
    <span class="k">call </span><span class="n">MPI_INIT</span><span class="p">(</span><span class="n">mpierr</span><span class="p">)</span>
<span class="cp">#endif</span>

    <span class="k">call </span><span class="n">env</span><span class="p">%</span><span class="n">initialize</span><span class="p">()</span>

    <span class="k">if</span><span class="p">(</span><span class="n">env</span><span class="p">%</span><span class="n">get_rank</span><span class="p">()</span> <span class="o">==</span> <span class="n">env</span><span class="p">%</span><span class="n">get_root</span><span class="p">())</span> <span class="k">then</span>
<span class="k">        </span><span class="n">recv_single_double_int</span> <span class="o">=</span> <span class="mi">123_I8P</span>
        <span class="n">recv_string</span> <span class="o">=</span> <span class="s1">&#39;string from root Root!&#39;</span>
    <span class="n">endif</span>
    

    <span class="k">call </span><span class="n">env</span><span class="p">%</span><span class="n">mpi_allgather</span><span class="p">(</span><span class="n">env</span><span class="p">%</span><span class="n">get_rank</span><span class="p">(),</span> <span class="n">recv_int</span><span class="p">)</span>
    <span class="k">call </span><span class="n">env</span><span class="p">%</span><span class="n">mpi_allgather</span><span class="p">(</span><span class="nb">int</span><span class="p">(</span><span class="n">env</span><span class="p">%</span><span class="n">get_rank</span><span class="p">(),</span><span class="n">I8P</span><span class="p">),</span> <span class="n">recv_double_int</span><span class="p">)</span>
    <span class="k">call </span><span class="n">env</span><span class="p">%</span><span class="n">mpi_broadcast</span><span class="p">(</span><span class="n">recv_single_double_int</span><span class="p">)</span>
    <span class="k">call </span><span class="n">env</span><span class="p">%</span><span class="n">mpi_broadcast</span><span class="p">(</span><span class="n">recv_string</span><span class="p">)</span>

    <span class="k">if</span><span class="p">(</span><span class="n">env</span><span class="p">%</span><span class="n">get_rank</span><span class="p">()</span> <span class="o">==</span> <span class="n">env</span><span class="p">%</span><span class="n">get_root</span><span class="p">())</span> <span class="k">then</span>
<span class="k">        print</span><span class="o">*</span><span class="p">,</span> <span class="s1">&#39;The MPI communicator has &#39;</span><span class="o">//</span><span class="nb">trim</span><span class="p">(</span><span class="n">str</span><span class="p">(</span><span class="n">no_sign</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.,</span><span class="n">n</span><span class="o">=</span><span class="n">env</span><span class="p">%</span><span class="n">get_comm_size</span><span class="p">()))</span><span class="o">//</span><span class="p">&amp;</span>
                <span class="s1">&#39; tasks and I am task &#39;</span><span class="o">//</span><span class="nb">trim</span><span class="p">(</span><span class="n">str</span><span class="p">(</span><span class="n">no_sign</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.,</span> <span class="n">n</span><span class="o">=</span><span class="n">env</span><span class="p">%</span><span class="n">get_rank</span><span class="p">())),</span> <span class="s1">&#39; (root)&#39;</span>
        <span class="k">print</span><span class="o">*</span><span class="p">,</span> <span class="s1">&#39;Allgather task IDs in single precision integers are: &#39;</span><span class="p">,</span> <span class="n">str</span><span class="p">(</span><span class="n">no_sign</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.,</span> <span class="n">n</span><span class="o">=</span><span class="n">recv_int</span><span class="p">)</span>
        <span class="k">print</span><span class="o">*</span><span class="p">,</span> <span class="s1">&#39;Allgather task IDs in double precision integers are: &#39;</span><span class="p">,</span> <span class="n">str</span><span class="p">(</span><span class="n">no_sign</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.,</span> <span class="n">n</span><span class="o">=</span><span class="n">recv_double_int</span><span class="p">)</span>
    <span class="k">else</span>
<span class="k">        print</span><span class="o">*</span><span class="p">,</span> <span class="s1">&#39;The MPI communicator has &#39;</span><span class="o">//</span><span class="nb">trim</span><span class="p">(</span><span class="n">str</span><span class="p">(</span><span class="n">no_sign</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.,</span> <span class="n">n</span><span class="o">=</span><span class="n">env</span><span class="p">%</span><span class="n">get_comm_size</span><span class="p">()))</span><span class="o">//</span><span class="p">&amp;</span>
                <span class="s1">&#39; tasks and I am task &#39;</span><span class="o">//</span><span class="nb">trim</span><span class="p">(</span><span class="n">str</span><span class="p">(</span><span class="n">no_sign</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.,</span> <span class="n">n</span><span class="o">=</span><span class="n">env</span><span class="p">%</span><span class="n">get_rank</span><span class="p">()))</span><span class="o">//</span><span class="p">&amp;</span>
                <span class="s1">&#39;, received double int: &#39;</span><span class="o">//</span><span class="nb">trim</span><span class="p">(</span><span class="n">str</span><span class="p">(</span><span class="n">no_sign</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.,</span> <span class="n">n</span><span class="o">=</span><span class="n">recv_single_double_int</span><span class="p">))</span><span class="o">//</span><span class="p">&amp;</span>
                <span class="s1">&#39;, received string: &#39;</span><span class="o">//</span><span class="nb">trim</span><span class="p">(</span><span class="n">recv_string</span><span class="p">)</span>
    <span class="n">endif</span>

<span class="cp">#if defined(MPI_MOD) || defined(MPI_H)</span>
    <span class="k">call </span><span class="n">MPI_FINALIZE</span><span class="p">(</span><span class="n">mpierr</span><span class="p">)</span>
<span class="cp">#endif</span>

<span class="k">end program </span><span class="n">test_mpi_environment</span>
</pre></div>

    </section>
    
    
    </div>
  </div>

  <section class="visible-xs visible-sm hidden-md">
    <hr>
    

<div class="panel panel-default">
  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#allprogs-1">All Programs</a></h3></div>
  <div id="allprogs-1" class="panel-collapse collapse">
    <div class="list-group">
      
      <a class="list-group-item" href="../program/ch_unstructured_hexahedron.html">ch_unstructured_hexahedron</a>
      
      <a class="list-group-item" href="../program/steps_handler_test.html">steps_handler_test</a>
      
      <a class="list-group-item" href="../program/test_hdf5_hyperslabs_handler.html">test_hdf5_hyperslabs_handler</a>
      
      <a class="list-group-item" href="../program/test_hdf5_rect_dpp_handler.html">test_hdf5_rect_dpp_handler</a>
      
      <a class="list-group-item" href="../program/test_hdf5_rect_hyperslabs_handler.html">test_hdf5_rect_hyperslabs_handler</a>
      
      <a class="list-group-item" href="../program/test_hdf5_reg_dpp_handler.html">test_hdf5_reg_dpp_handler</a>
      
      <a class="list-group-item" href="../program/test_hdf5_reg_hyperslabs_handler.html">test_hdf5_reg_hyperslabs_handler</a>
      
      <a class="list-group-item" href="../program/test_hdf5_uns_hyperslabs_handler.html">test_hdf5_uns_hyperslabs_handler</a>
      
      <a class="list-group-item" href="../program/test_mpi_environment.html">test_mpi_environment</a>
      
      <a class="list-group-item" href="../program/test_xdmf_attribute.html">test_xdmf_attribute</a>
      
      <a class="list-group-item" href="../program/test_xdmf_character_data.html">test_xdmf_character_data</a>
      
      <a class="list-group-item" href="../program/test_xdmf_dataitem.html">test_xdmf_dataitem</a>
      
      <a class="list-group-item" href="../program/test_xdmf_geometry.html">test_xdmf_geometry</a>
      
      <a class="list-group-item" href="../program/test_xdmf_grid.html">test_xdmf_grid</a>
      
      <a class="list-group-item" href="../program/test_xdmf_rect_dpp_handler.html">test_xdmf_rect_dpp_handler</a>
      
      <a class="list-group-item" href="../program/test_xdmf_rect_hyperslabs_handler.html">test_xdmf_rect_hyperslabs_handler</a>
      
      <a class="list-group-item" href="../program/test_xdmf_reg_ddp_handler.html">test_xdmf_reg_ddp_handler</a>
      
      <a class="list-group-item" href="../program/test_xdmf_reg_hyperslabs_handler.html">test_xdmf_reg_hyperslabs_handler</a>
      
      <a class="list-group-item" href="../program/test_xdmf_time.html">test_xdmf_time</a>
      
      <a class="list-group-item" href="../program/test_xdmf_topology.html">test_xdmf_topology</a>
      
      <a class="list-group-item" href="../program/test_xdmf_uns_ddp_handler.html">test_xdmf_uns_ddp_handler</a>
      
      <a class="list-group-item" href="../program/test_xdmf_uns_hyperslabs_handler.html">test_xdmf_uns_hyperslabs_handler</a>
      
      <a class="list-group-item" href="../program/test_xdmf_xinclude.html">test_xdmf_xinclude</a>
      
      <a class="list-group-item" href="../program/try_compile_hdf5_mod.html">try_compile_hdf5_mod</a>
      
      <a class="list-group-item" href="../program/try_compile_mpi_mod.html">try_compile_mpi_mod</a>
      
      <a class="list-group-item" href="../program/wxml_example.html">wxml_example</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_rectilinear_grid.html">xh5for_ch_rectilinear_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_rectilinear_grid%7E2.html">xh5for_ch_rectilinear_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_rectilinear_grid%7E3.html">xh5for_ch_rectilinear_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_regular_grid.html">xh5for_ch_regular_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_regular_grid%7E2.html">xh5for_ch_regular_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_regular_grid%7E3.html">xh5for_ch_regular_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_regular_grid%7E4.html">xh5for_ch_regular_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_regular_grid%7E5.html">xh5for_ch_regular_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_hexahedron.html">xh5for_ch_unstructured_hexahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_hexahedron%7E2.html">xh5for_ch_unstructured_hexahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_mixedtopology.html">xh5for_ch_unstructured_mixedtopology</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_mixedtopology%7E2.html">xh5for_ch_unstructured_mixedtopology</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_quadrilateral.html">xh5for_ch_unstructured_quadrilateral</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_tetrahedron.html">xh5for_ch_unstructured_tetrahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_tetrahedron%7E2.html">xh5for_ch_unstructured_tetrahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_tetrahedron%7E3.html">xh5for_ch_unstructured_tetrahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_tetrahedron%7E4.html">xh5for_ch_unstructured_tetrahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_tetrahedron%7E5.html">xh5for_ch_unstructured_tetrahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_ch_unstructured_triangles.html">xh5for_ch_unstructured_triangles</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_rectilinear_grid.html">xh5for_dpp_rectilinear_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_rectilinear_grid%7E2.html">xh5for_dpp_rectilinear_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_rectilinear_grid%7E3.html">xh5for_dpp_rectilinear_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_regular_grid.html">xh5for_dpp_regular_grid</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_unstructured_hexahedron.html">xh5for_dpp_unstructured_hexahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_unstructured_mixedtopology.html">xh5for_dpp_unstructured_mixedtopology</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_unstructured_quadrilateral.html">xh5for_dpp_unstructured_quadrilateral</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_unstructured_tetrahedron.html">xh5for_dpp_unstructured_tetrahedron</a>
      
      <a class="list-group-item" href="../program/xh5for_dpp_unstructured_triangles.html">xh5for_dpp_unstructured_triangles</a>
      
    </div>
  </div>
</div>


  </section>
  
    <hr>    
    </div> <!-- /container -->
    <footer>
      <div class="container">
      <div class="row">
        <div class="col-xs-6 col-md-4"><p>&copy; 2016 </p></div>
        <div class="col-xs-6 col-md-4 col-md-push-4">
          <p class="text-right">
            Documentation generated by 
            <a href="https://github.com/cmacmackin/ford">FORD</a>
             on 2016-11-08T12:24:53.235950 
          </p>
        </div>
        <div class="col-xs-12 col-md-4 col-md-pull-4"><p class="text-center"> XH5For was developed by Víctor Sande Veiga</p></div>
      </div>
      <br>
      </div> <!-- /container -->    
    </footer>

    <!-- Bootstrap core JavaScript
    ================================================== -->
    <!-- Placed at the end of the document so the pages load faster -->
<!--
    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
-->
    <script src="../js/bootstrap.min.js"></script>
    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
    <script src="../js/ie10-viewport-bug-workaround.js"></script>

    <!-- MathJax JavaScript
    ================================================== -->
    <!-- Placed at the end of the document so the pages load faster -->
    <script type="text/x-mathjax-config">
      MathJax.Hub.Config({
        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js'],
        'HTML-CSS': { 
           styles: { '.MathJax_Display, .MathJax .mo, .MathJax .mi, .MathJax .mn': {color: '#000000 ! important'} }
        }
      });
    </script>
    <script src="https://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
    
    
    <script src="../tipuesearch/tipuesearch_content.js"></script>
    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
    <script src="../tipuesearch/tipuesearch_set.js"></script>
    <script src="../tipuesearch/tipuesearch.js"></script>
    
    
  </body>
</html>